From news-rocq!univ-lyon1.fr!jussieu.fr!opentransit.net!news.tele.dk!134.222.94.5!npeer.kpnqwest.net!nmaster.kpnqwest.net!newsfeed.Austria.EU.net!newsfeed.kpnqwest.at!anon.lcs.mit.edu!nym.alias.net!mail2news Wed Mar 28 13:35:32 2001
Article: 12420 of rec.games.corewar
Path: news-rocq!univ-lyon1.fr!jussieu.fr!opentransit.net!news.tele.dk!134.222.94.5!npeer.kpnqwest.net!nmaster.kpnqwest.net!newsfeed.Austria.EU.net!newsfeed.kpnqwest.at!anon.lcs.mit.edu!nym.alias.net!mail2news
Message-ID: <5.0.2.1.2.20010323153858.00a254d0@pop.crosswinds.net>
X-Sender: ayanthegreat@pop.crosswinds.net
X-Mailer: QUALCOMM Windows Eudora Version 5.0.2
Date: Fri, 23 Mar 2001 15:59:28 +0530
From: Ayan Chakrabarti <ayanthegreat@crosswinds.net>
Subject: Re: Warrior Improvement
In-Reply-To: <985269732.6246@itz.pp.sci.fi>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"; format=flowed
Mail-To-News-Contact: postmaster@nym.alias.net
Organization: mail2news@nym.alias.net
Newsgroups: rec.games.corewar
Lines: 100
Xref: news-rocq rec.games.corewar:12420



Hi,

I've made a few improvements to the warrior since the last post (added 
booting the trap away and checking to see that i'm not scanning into 
myself), but the improvement in score seems to be minimal.

I'm posting the new one. Again, I'd be grateful for any advice on improving it.

Thanks in advance.

;redcode-b test
;name Mohini
;author Ayan Chakrabarti
;strategy Scan + Vamp -> Clear
;strategy Captured processes stunned.
;strategy Fixed a couple of bugs. Does well against papers but
;strategy gets thrashed by scanners and some stones.
;assert CORESIZE == 8000

init    equ kill+100
inscan  equ kill+step
step    equ 3039
trap    equ (ttrap - 100)

;--- The trap which doubles up as scanning pointer (booted away)

ttrap   jmp    pit-init,inscan-trap

;--- Scan

kill     mov.i  trap,>ptr
          add.f  stinc,trap
check    jmz.f  kill,@trap
          slt    #tend-trap,trap
          jmp    kill
          mov.b  trap,ptr
          sub.ab #ptr-trap,ptr
          mov.a  #pit-trap,trap
          sub.ba trap,trap
          jmp kill

stinc    dat    #-1,#step

;------
for     3
         dat     0
rof
;------

;--- Clear (something captured)

ptr2            dat     0,pit-ptr2
                 dat     0,pit-ptr2
                 dat     -10,pit-ptr2
                 dat     -10,pit-ptr2

done            spl     #4000,pit-ptr2
                 mov.i   @2,>ptr2
                 mov.i   @1,>ptr2
                 djn.b   -2,{done

                 dat     0,0
                 dat     0,0

;--- The pointer at which traps are being dropped. Also used to switch
;    from scan to clear

ptr      jmp    done-check,init

;--- Boot the trap away

boot     mov    ttrap,trap
          jmp    check

;------
for 8
dat 0
rof
;------

;--- The pit

pit      mov    ptr,check               ; Process captured. Switch to clear.

          for 9
          spl     #0,<trap+1
          rof

          jmp    -9,<trap+1
;--- The end :)
tend

end boot

-----------------
Ayan Chakrabarti
" I think I think, therefore I think I am. "